Nebula 1/Nebula One.iso/Internet/FTP/Mirror2.3/do_unlinks

Text File | 1994-01-18 | 465 b | 18 lines

#!/usr/bin/perl -s
# Obey the remove commands generated but not done by mirror.
# eg:
# NEED TO unlink /public/micros/ibmpc/simtel20/sprdsht/tc810.arc
# NEED TO rmdir /public/micros/ibmpc/simtel20/sprdsht

# A simple safety check - only delete if the pathname begins with this
$del_only = '/public';

while( <> ){
    chop;
    if( /^NEED TO (unlink|rmdir) ($del_only.*)/ ){
        $zap = "$1('$2')";
        print "$zap\n" if $debug;
        (eval "$zap") || warn "failed: $zap\n";
    }
}